500
|
How can I add an extra button to a spin editor
![](images/exgridq500.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.DefaultItemHeight = 20
With .Columns.Add("Date").Editor
.EditType = 4
.AddButton "B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1"
.ButtonWidth = 20
End With
With .Items
.AddItem 0
.AddItem 1
End With
End With
|
499
|
How can I remove or delete the buttons in the editor
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Edit").Editor
.EditType = 1
.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
.RemoveButton "B1"
.ButtonWidth = 20
End With
With .Items
.AddItem "Text 1"
.AddItem "Text 2"
End With
End With
|
498
|
How can I hide the buttons in the editor
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.DefaultItemHeight = 24
With .Columns.Add("Edit").Editor
.EditType = 1
.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
.ButtonWidth = 0
End With
With .Items
.AddItem "Text 1"
.AddItem "Text 2"
End With
End With
|
497
|
How can I change the width of the buttons in the editor
![](images/exgridq497.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.DefaultItemHeight = 24
With .Columns.Add("Edit").Editor
.EditType = 1
.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
.ButtonWidth = 24
End With
With .Items
.AddItem "Text 1"
.AddItem "Text 2"
End With
End With
|
496
|
How can I add extra buttons to an editor
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("Edit").Editor
.EditType = 1
.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
.AddButton "B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2"
.AddButton "B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3"
.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
End With
With .Items
.AddItem "Text 1"
.AddItem "Text 2"
End With
End With
|
495
|
is there any function to specify the number of rows / items being visible in a drop down list editor
![](images/exgridq495.png)
With Grid1
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
.DropDownRows = 1
.PopupAppearance = 1
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
494
|
How can I change the border for a drop down editor
![](images/exgridq494.png)
With Grid1
With .Columns.Add("Date").Editor
.EditType = 7
.PopupAppearance = 1
End With
.Items.AddItem "Today"
With .Items
.CellEditor(.AddItem("Today"),0).EditType = 7
End With
End With
|
493
|
How can I remove a predefined item in a drop down editor
![](images/exgridq493.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 17
.Option(4) = True
.RemoveItem 255
End With
.Items.AddItem 255
.Items.AddItem 65280
End With
|
492
|
How can I remove or clear all predefined items in a drop down editor
![](images/exgridq492.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 17
.ClearItems
.AddItem 255,"Red Color"
End With
.Items.AddItem 255
End With
|
491
|
How can I center the predefined items in a drop down editor editor
![](images/exgridq491.png)
With Grid1
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
.DropDownAlignment = 1
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
490
|
How can I right align the items in a drop down editor editor
![](images/exgridq490.png)
With Grid1
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
.DropDownAlignment = 2
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
489
|
How can I specify the width of the drop down editor
![](images/exgridq489.png)
With Grid1
With .Columns.Add("DropDown").Editor
.DropDownAutoWidth = 0
.DropDownMinWidth = 385
.EditType = 17
End With
With .Items
.AddItem 255
.AddItem 65280
End With
End With
|
488
|
How can hide the drop down button for an editor
![](images/exgridq488.png)
With Grid1
With .Columns.Add("DropDown").Editor
.DropDownVisible = False
.EditType = 17
End With
With .Items
.AddItem 255
.AddItem 65280
End With
End With
|
487
|
How can assign a tooltip to a drop down list editor
With Grid1
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
486
|
How can I lock, disable make read only an editor
![](images/exgridq486.png)
With Grid1
With .Columns.Add("DropDown").Editor
.Locked = True
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
485
|
How can I sort the items in a drop down list editor
![](images/exgridq485.png)
With Grid1
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"Second item"
.AddItem 2,"First item"
.AddItem 3,"Third item"
.SortItems True
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
484
|
How can I expand an item in the tree or a hierarchy of a drop down editor
![](images/exgridq484.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown")
.Def(17) = 1
With .Editor
.EditType = 3
.DropDownAutoWidth = 0
.AddItem 1,"<b>CObject</b> class",1
.InsertItem 2,"<b>CCmdTarget</b> class",2,1
.InsertItem 3,"<b>CWnd</b> class",3,2
.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
.AddItem 4,"Exceptions",1
.InsertItem 7,"<b>System</b> Exceptions",2,4
.AddItem 5,"File Services",2
.ExpandItem(1) = True
End With
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
483
|
How can I display a tree or a hierarchy in a drop down editor
![](images/exgridq483.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown")
.Def(17) = 1
With .Editor
.EditType = 3
.DropDownAutoWidth = 0
.AddItem 1,"<b>CObject</b> class",1
.InsertItem 2,"<b>CCmdTarget</b> class",2,1
.InsertItem 3,"<b>CWnd</b> class",3,2
.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
.AddItem 4,"Exceptions",1
.InsertItem 7,"<b>System</b> Exceptions",2,4
.AddItem 5,"File Services",2
.ExpandAll
End With
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
482
|
How can I look for items that includes the typed characters in a drop down list editor
![](images/exgridq482.png)
With Grid1
With .Columns.Add("DropDown").Editor
.Option(39) = 1
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
481
|
How can I keep the selection background color while editor is visible
![](images/exgridq481.png)
With Grid1
.SelBackColor = RGB(255,0,0)
With .Columns.Add("DropDown").Editor
.Option(45) = True
.EditType = 3
.AddItem 1,"First item"
.AddItem 2,"Second item"
.AddItem 3,"Third item"
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
480
|
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
![](images/exgridq480.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown").Editor
.Option(37) = 1
.EditType = 3
.AddItem 1,"First item",1
.AddItem 2,"Second item",3
.AddItem 3,"Third item",2
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
479
|
How can I automatically drop down the list editor, when the user starts typing in the editor
![](images/exgridq479.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown").Editor
.Option(37) = -1
.EditType = 3
.AddItem 1,"First item",1
.AddItem 2,"Second item",3
.AddItem 3,"Third item",2
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
478
|
How can I add a Font editor
![](images/exgridq478.png)
With Grid1
.Columns.Add("Font").Editor.EditType = 10
.Items.AddItem "Tahoma"
End With
|
477
|
How can I change the visual appearance for the buttons in the calculator editor
![](images/exgridq477.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 21
.Option(105) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.Option(106) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
End With
.Items.AddItem 10
End With
|
476
|
How can I customize the caption of buttons in the calculator editor
![](images/exgridq476.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 21
.Option(104) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
End With
.Items.AddItem 10
End With
|
475
|
How can I customize the caption of buttons in the calculator editor
![](images/exgridq475.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 21
.Option(104) = "0;1;2;3;4;5;6;7;8;9"
End With
.Items.AddItem 10
End With
|
474
|
How can I specify the width and height of the buttons in the calculator editor
![](images/exgridq474.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 21
.Option(102) = 32
.Option(103) = 32
End With
.Items.AddItem 10
End With
|
473
|
How can I change the "Cannot divide by zero" message that shows in the calculator editor
![](images/exgridq473.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 21
.Option(101) = "Divizion by zero"
End With
.Items.AddItem 10
End With
|
472
|
How can I enable or disable executing operations while the calculator editor is focused and closed
![](images/exgridq472.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 21
.Option(100) = False
End With
.Items.AddItem 10
End With
|
471
|
How can I add a calculator editor
![](images/exgridq471.png)
With Grid1
.Columns.Add("Slider").Editor.EditType = 21
.Items.AddItem 10
End With
|
470
|
How can I edit a number between a range or interval
![](images/exgridq470.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 20
.Numeric = -1
.Option(40) = 0
.Option(41) = 0
.Option(43) = 5
.Option(44) = 15
End With
.Items.AddItem 10
End With
|
469
|
How can I hide or show the spin in the slider or track bar editor
![](images/exgridq469.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 20
.Option(40) = 0
End With
.Items.AddItem 10
End With
|
468
|
How can I add a slider or track bar editor, with a fixed size
![](images/exgridq468.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 20
.Option(41) = 64
End With
.Items.AddItem 10
End With
|
467
|
How can I add a slider or track bar editor, so it covers half of the cell
![](images/exgridq467.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 20
.Option(41) = -50
End With
.Items.AddItem 10
End With
|
466
|
How can I add a slider or track bar editor, so it covers the full cell
![](images/exgridq466.png)
With Grid1
Set var_Editor = .Columns.Add("Slider").Editor
With var_Editor
.EditType = 20
.Option(41) = -100
End With
.Items.AddItem 10
End With
|
465
|
How can I add a slider or track bar editor within a range or interval of numbers
![](images/exgridq465.png)
With Grid1
Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
With var_Editor
.EditType = 20
.Numeric = -1
.Option(43) = 5
.Option(44) = 15
End With
.Items.AddItem 10
End With
|
464
|
How can I add a slider or track bar editor within a range or interval of float numbers
![](images/exgridq464.png)
With Grid1
Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
With var_Editor
.EditType = 20
.Numeric = 1
.Option(43) = 0
.Option(44) = 1
.Option(40) = "0.01"
.Option(42) = "0.01"
End With
.Items.AddItem "0.3"
End With
|
463
|
How can I add a spin editor within a range or interval of float numbers
![](images/exgridq463.png)
With Grid1
Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
With var_Editor
.EditType = 20
.Numeric = 1
.Option(41) = 0
.Option(43) = 0
.Option(44) = 1
.Option(40) = "0.01"
End With
.Items.AddItem "0.3"
End With
|
462
|
How can I add a spin editor within a range or interval of numbers
![](images/exgridq462.png)
With Grid1
Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
With var_Editor
.EditType = 20
.Numeric = -1
.Option(41) = 0
.Option(43) = 5
.Option(44) = 15
End With
.Items.AddItem 10
End With
|
461
|
How can I add a slider or track bar editor
![](images/exgridq461.png)
With Grid1
.Columns.Add("Slider").Editor.EditType = 20
.Items.AddItem 10
End With
|
460
|
I have check box column, but the check-boxes looks disabled. What can I do
![](images/exgridq460.png)
With Grid1
Set var_Editor = .Columns.Add("Check").Editor
With var_Editor
.EditType = 19
.Option(17) = 1
End With
With .Items
.AddItem False
.AddItem True
.AddItem False
End With
End With
|
459
|
How do I add check box column, so the cell value is changed as I click the cells
![](images/exgridq459.png)
With Grid1
.MarkSearchColumn = False
With .Columns.Add("C")
.Width = 18
.AllowSizing = False
With .Editor
.EditType = 19
.Option(17) = 1
End With
End With
.Columns.Add "Text"
With .Items
.CellValue(.AddItem(False),1) = "Check 1"
.CellValue(.AddItem(True),1) = "Check 2"
.CellValue(.AddItem(False),1) = "Check 3"
End With
End With
|
458
|
How do I add check box column, so the cell value is changed as I click the cells
![](images/exgridq458.png)
With Grid1
.Columns.Add("Check").Editor.EditType = 19
With .Items
.AddItem False
.AddItem True
.AddItem False
End With
End With
|
457
|
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control
![](images/exgridq457.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 18
.Option(9) = False
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = False
End With
End With
|
456
|
How do I add a vertical scroll bar for a memo or a multiple lines edit control
![](images/exgridq456.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 18
.Option(2) = True
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = False
End With
End With
|
455
|
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
![](images/exgridq455.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 18
.Option(1) = True
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = False
End With
End With
|
454
|
How can I specify the width or the height for a drop down memo or a multiple lines edit control
![](images/exgridq454.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 18
.Option(7) = 256
.Option(8) = 64
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = False
End With
End With
|
453
|
How do I add a drop down memo or a multiple lines edit control
![](images/exgridq453.png)
With Grid1
.Columns.Add("Edit").Editor.EditType = 18
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = False
End With
End With
|
452
|
How do I add a color list editor with my own or custom colors
![](images/exgridq452.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 17
.Option(4) = True
.ClearItems
.AddItem 255,"Red Color"
.AddItem 16711680,"Blue Color"
.AddItem 65280,"Green Color"
End With
.Items.AddItem 255
End With
|
451
|
How do I add a color list editor with my own or custom colors
![](images/exgridq451.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 17
.ClearItems
.AddItem 255,"Red Color"
.AddItem 16711680,"Blue Color"
.AddItem 65280,"Green Color"
End With
.Items.AddItem 255
End With
|
450
|
How can I show the color's name in a color list editor
![](images/exgridq450.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 17
.Option(4) = True
End With
.Items.AddItem 255
End With
|
449
|
How do I add a color list editor
![](images/exgridq449.png)
With Grid1
.Columns.Add("Color").Editor.EditType = 17
.Items.AddItem 255
End With
|
448
|
How can I access my own custom or ActiveX editor
![](images/exgridq448.png)
With Grid1
.DrawGridLines = -1
.DefaultItemHeight = 128
With .Columns.Add("DropDown").Editor
.EditType = 16
.UserEditor "MSCAL.Calendar",""
With .UserEditorObject
.BackColor = RGB(255,255,255)
.GridCellEffect = 0
.ShowTitle = False
.ShowDateSelectors = False
End With
End With
With .Items
.AddItem "MSCal.Calendar"
.AddItem "MSCal.Calendar"
End With
End With
|
447
|
How can I add my own custom or ActiveX editor
![](images/exgridq447.png)
With Grid1
.DrawGridLines = -1
.DefaultItemHeight = 128
With .Columns.Add("DropDown").Editor
.EditType = 16
.UserEditor "MSCAL.Calendar",""
End With
With .Items
.AddItem "MSCal.Calendar"
.AddItem "MSCal.Calendar"
End With
End With
|
446
|
How can I add a hyperlink editor
![](images/exgridq446.png)
With Grid1
.Columns.Add("Shell.Execute").Editor.EditType = 15
.Items.AddItem "http://www.exontrol.com"
.Items.AddItem "c:\"
End With
|
445
|
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select
![](images/exgridq445.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown").Editor
.EditType = 14
.AddItem 1,"The first item",1
.AddItem 2,"The second item",3
.AddItem 3,"The third item",2
End With
With .Items
.AddItem "The first item"
.AddItem "The third item"
End With
End With
|
444
|
How can I show or hide the rectangle arround progress bar editor
![](images/exgridq444.png)
With Grid1
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(128,255,255)
Set var_Editor = .Columns.Add("Progress").Editor
With var_Editor
.EditType = 13
.Option(13) = False
End With
.Items.AddItem 33
End With
|
443
|
How can I hide the caption / percent in the progress bar editor
![](images/exgridq443.png)
With Grid1
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(128,255,255)
Set var_Editor = .Columns.Add("Progress").Editor
With var_Editor
.EditType = 13
.Option(12) = -1
End With
.Items.AddItem 33
End With
|
442
|
How can I align the caption in the center of the progress bar editor
![](images/exgridq442.png)
With Grid1
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(128,255,255)
Set var_Editor = .Columns.Add("Progress").Editor
With var_Editor
.EditType = 13
.Option(12) = 1
End With
.Items.AddItem 33
End With
|
441
|
How can I align the caption to the right in the progress bar editor
![](images/exgridq441.png)
With Grid1
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(128,255,255)
Set var_Editor = .Columns.Add("Progress").Editor
With var_Editor
.EditType = 13
.Option(12) = 2
End With
.Items.AddItem 33
End With
|
440
|
How can I change the background color for a progress bar editor
![](images/exgridq440.png)
With Grid1
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(128,255,255)
Set var_Editor = .Columns.Add("Progress").Editor
With var_Editor
.EditType = 13
.Option(11) = 255
End With
.Items.AddItem 33
End With
|
439
|
How can I add a progress bar editor
![](images/exgridq439.png)
With Grid1
.SelForeColor = RGB(0,0,0)
.SelBackColor = RGB(128,255,255)
.Columns.Add("Progress").Editor.EditType = 13
.Items.AddItem 33
End With
|
438
|
How can I add a button editor
![](images/exgridq438.png)
With Grid1
.Columns.Add("Button").Editor.EditType = 12
.Items.AddItem "Just a text"
End With
|
437
|
How can I show or hide the type of the OLE Object for Photo or a Picture editor
![](images/exgridq437.png)
With Grid1
.ColumnAutoResize = False
With .Columns.Add("Photo")
.Width = 74
With .Editor
.EditType = 11
.Option(52) = False
End With
End With
With .Items
h = .AddItem()
.CellValue(h,0) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
.ItemHeight(h) = 64
End With
End With
|
436
|
How can I add a Photo or a Picture editor
![](images/exgridq436.png)
With Grid1
.Columns.Add("Photo").Editor.EditType = 11
With .Items
h = .AddItem()
.CellValue(h,0) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
.ItemHeight(h) = 64
End With
End With
|
435
|
How can I hide or show the "System" page in the color editor
![](images/exgridq435.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 9
.Option(6) = False
End With
.Items.AddItem 255
End With
|
434
|
How can I hide or show the "Palette" page in the color editor
![](images/exgridq434.png)
With Grid1
Set var_Editor = .Columns.Add("Color").Editor
With var_Editor
.EditType = 9
.Option(5) = False
End With
.Items.AddItem 255
End With
|
433
|
How do I add a color editor
![](images/exgridq433.png)
With Grid1
.Columns.Add("Color").Editor.EditType = 9
.Items.AddItem 255
End With
|
432
|
How do I change the masking character
![](images/exgridq432.png)
With Grid1
Set var_Editor = .Columns.Add("Mask").Editor
With var_Editor
.EditType = 8
.Mask = "###"
.MaskChar = 48
End With
.Items.AddItem ""
End With
|
431
|
How do I mask an IP
![](images/exgridq431.png)
With Grid1
Set var_Editor = .Columns.Add("IP").Editor
With var_Editor
.EditType = 8
.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
End With
.Items.AddItem "1.2.3.4"
End With
|
430
|
How do I add a mask editor
![](images/exgridq430.png)
With Grid1
Set var_Editor = .Columns.Add("Mask").Editor
With var_Editor
.EditType = 8
.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
End With
.Items.AddItem "1.2.3.4"
End With
|
429
|
How to show or hide the week numbers header in a drop down date picker calendar editor
![](images/exgridq429.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(47) = True
End With
.Items.AddItem "Today"
End With
|
428
|
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
![](images/exgridq428.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(35) = False
End With
.Items.AddItem "Today"
End With
|
427
|
How do highlight the "Today" date is the drop down date picker calendar editor
![](images/exgridq427.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(34) = True
End With
.Items.AddItem "Today"
End With
|
426
|
How do I show or hide the "Today" button is the drop down date picker calendar editor
![](images/exgridq426.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(33) = False
End With
.Items.AddItem "Today"
End With
|
425
|
How to specify the first day of the week in the drop down date picker calendar editor
![](images/exgridq425.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(32) = 1
End With
.Items.AddItem "Today"
End With
|
424
|
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
![](images/exgridq424.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(31) = "Du Lu Ma Mi Jo Vi Si"
End With
.Items.AddItem "Today"
End With
|
423
|
How can I change the name of the months in the drop down date picker calendar editor
![](images/exgridq423.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(30) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
End With
.Items.AddItem "Today"
End With
|
422
|
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
![](images/exgridq422.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(29) = "Azi"
End With
.Items.AddItem "Today"
End With
|
421
|
How can allow empty date to drop down date picker control or a calendar control
![](images/exgridq421.png)
With Grid1
Set var_Editor = .Columns.Add("Date").Editor
With var_Editor
.EditType = 7
.Option(14) = True
End With
With .Items
.AddItem "Today"
.AddItem ""
.AddItem "Today"
End With
End With
|
420
|
How can I a drop down date picker control or a calendar control
![](images/exgridq420.png)
With Grid1
.Columns.Add("Date").Editor.EditType = 7
With .Items
.AddItem "Today"
End With
End With
|
419
|
How can I have an OR combination of my bit values, something like a check-box list editor
![](images/exgridq419.png)
With Grid1
With .Columns.Add("CkeckList")
.Def(17) = 1
With .Editor
.EditType = 6
.AddItem 1,"Bit <b>1</b>"
.AddItem 2,"Bit <b>2</b>"
.AddItem 4,"Bit <b>3</b>"
.AddItem 8,"Bit <b>4</b>"
.AddItem 16,"Bit <b>5</b>"
.AddItem 32,"Bit <b>6</b>"
.AddItem 64,"Bit <b>7</b>"
.AddItem 128,"Bit <b>8</b>"
End With
End With
With .Items
.AddItem 112
.AddItem 2
End With
End With
|
418
|
How do I stop resizing the memo or a multiple lines edit control, while the user types
![](images/exgridq418.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 5
.Option(3) = False
.Option(1) = True
.Option(2) = True
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = False
End With
End With
|
417
|
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
![](images/exgridq417.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 5
.Option(1) = True
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = False
End With
End With
|
416
|
How do I add a vertical scroll bar for a memo or a multiple lines edit control
![](images/exgridq416.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 5
.Option(2) = True
End With
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = False
End With
End With
|
415
|
How do I add a memo or a multiple lines edit control
![](images/exgridq415.png)
With Grid1
.Columns.Add("Edit").Editor.EditType = 5
With .Items
.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = False
End With
End With
|
414
|
How to specify the proposed change when the user clicks a spin control.
![](images/exgridq414.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 4
.Numeric = -1
.Option(40) = 10
End With
With .Items
.AddItem 0
.AddItem 10
.AddItem 20
End With
End With
|
413
|
How do I add a spin editor that allows only integer values
![](images/exgridq413.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 4
.Numeric = -1
End With
With .Items
.AddItem 0
.AddItem 1
.AddItem 2
End With
End With
|
412
|
How do I add a spin editor
![](images/exgridq412.png)
With Grid1
.Columns.Add("Edit").Editor.EditType = 4
With .Items
.AddItem 0
.AddItem 1
.AddItem 2
End With
End With
|
411
|
How do I specify in a drop down list editor, that I do not want to have predefined icon
![](images/exgridq411.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"The first item",1
.AddItem 2,"The second item",3
.AddItem 3,"The third item",2
.Option(28) = False
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
410
|
How do I add a drop down editor, that allows only predefined values
![](images/exgridq410.png)
With Grid1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Columns.Add("DropDown").Editor
.EditType = 3
.AddItem 1,"The first item",1
.AddItem 2,"The second item",3
.AddItem 3,"The third item",2
End With
With .Items
.AddItem 1
.AddItem 2
End With
End With
|
409
|
How to allow the editor to work on insert or overtype mode
![](images/exgridq409.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Option(200) = True
.Option(201) = True
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
End With
|
408
|
How to set foreground color for a locked, or read only edit control
![](images/exgridq408.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Locked = True
.Option(51) = 8421504
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
End With
|
407
|
How to set background color for a locked, or read only edit control
![](images/exgridq407.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Locked = True
.Option(50) = 8421504
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
End With
|
406
|
How to set the number of characters selected, when an EditType editor is opened
![](images/exgridq406.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Option(49) = 1
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
End With
|
405
|
How to set the starting point of text selected, when an EditType editor is opened
![](images/exgridq405.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Option(48) = 1
.Option(49) = 1
End With
With .Items
.AddItem "000"
.AddItem "111"
.AddItem "222"
End With
End With
|
404
|
How to specifiy the symbol that indicates the decimal values while editing a floating point number
![](images/exgridq404.png)
With Grid1
.BeginUpdate
With .Columns.Add("Float")
.FormatColumn = "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
With .Editor
.EditType = 1
.Numeric = 2
.Option(46) = 44
End With
End With
With .Items
.AddItem 0.12
.AddItem 1
.AddItem 2.45
End With
.EndUpdate
End With
|
403
|
How can I edit a float number
![](images/exgridq403.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Numeric = 1
End With
With .Items
.AddItem 0
.AddItem 1
.AddItem 2
End With
End With
|
402
|
How can I edit a number
![](images/exgridq402.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Numeric = -1
End With
With .Items
.AddItem 0
.AddItem 1
.AddItem 2
End With
End With
|
401
|
How do I limit the length of the text that the user may enter into an edit control
![](images/exgridq401.png)
With Grid1
Set var_Editor = .Columns.Add("Edit").Editor
With var_Editor
.EditType = 1
.Option(36) = 1
End With
With .Items
.AddItem 0
.AddItem 1
.AddItem 2
End With
End With
|